home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / treed_entity.e < prev    next >
Encoding:
Text File  |  1995-12-27  |  460 b   |  26 lines
  1.  
  2. OPT MODULE
  3. OPT EXPORT
  4.  
  5. MODULE '*entity','*class'
  6.  
  7. -> Eiffel entities that are stored in a tree
  8. OBJECT treed_entity OF entity
  9.   left:PTR TO treed_entity
  10.   right:PTR TO treed_entity
  11.   int:LONG
  12. ENDOBJECT
  13.  
  14. -> Folds proc through the tree.
  15. PROC traverse(proc) OF treed_entity
  16.   proc(self)
  17.   IF self.left THEN self.left.traverse(proc)
  18.   IF self.right THEN self.right.traverse(proc)
  19. ENDPROC
  20.  
  21. -> Destructor
  22. PROC end() OF treed_entity
  23.   DisposeLink(self.name)
  24. ENDPROC
  25.  
  26.